home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / moreuselssprgs.lha / BirOutro.AMOS / BirOutro.amosSourceCode < prev    next >
AMOS Source Code  |  1997-04-18  |  2KB  |  75 lines
  1. Hide 
  2. Unpack 16 To 0 : Screen Hide 
  3. For A=0 To 73
  4.   Get Block A+1,(A mod 20)*32,(A/20)*16,32,16
  5. Next 
  6.  Extension_8_1486 0,0
  7. Screen Open 0,352*2,576,16,$8000
  8. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  9.  Extension_8_149E 0,0
  10. Screen Display 0,104,40,352,256
  11. YPOS=0
  12. Screen Offset 0,0,YPOS+24
  13. L$=' ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789.,:!?"&����'
  14. T$="Das war das$Geschenk zu Deinem$$21. Geburtstag$$$$$"
  15. T$=T$+"Wir hoffen,$es hat Dir gefallen!$$$$$$"
  16. T$=T$+"Verbrochen wurde$das Ganze von:$$Peter Hodges$Michael Frei�l$Michael Wei�$Chris Hodges$$$$"
  17. T$=T$+"Die h�bschen kleinen$Animationen kamen von:$$Peter & Chris Hodges$$$"
  18. T$=T$+"Den tollen Sound und$die Musik haben gemixt:$$Michael Wei�$und der Peter$$$"
  19. T$=T$+"Die Kamera wurde mit$zittriger Hand von$Peter mi�braucht.$$$"
  20. T$=T$+"Der hirnrissige$Einfall f�r dieses$Video kam uns$im Confetti.$$$$$$$"
  21. T$=T$+"Wir hoffen, da�$Du uns nie vergi�t!$$$DAS ENERGY TEAM$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
  22. Set Rainbow 0,0,16,"","",""
  23. For A=0 To 15
  24.   Rain(0,A)=$C204
  25. Next 
  26.  Extension_8_1330 0,-64
  27. Rainbow 0,0,Y Hard(-1),260
  28. BP=1
  29. Shift Up 1,2,15,1
  30. Wait Key 
  31. Repeat 
  32.   Gosub PULET
  33.   If Deek($DFF004) and $8000 Then Wait Vbl 
  34.   Gosub PULET
  35.   Add YPOS,1,0 To 287
  36.   Screen Offset 0,0,YPOS+24
  37.   Wait Vbl 
  38. Until Inkey$=Chr$(27) or Mouse Key<>0
  39. Wait Key 
  40. If Deek($DFF004) and $8000 Then Wait Vbl 
  41. Rainbow Del : View 
  42. Screen Close 0
  43. End 
  44. PULET:
  45.   YP=YPOS and $FFF0
  46.   If(YPOS and 15)=0 Then LP=0
  47.   If LP=0
  48.     XP=184*2
  49.     For A=BP To Len(T$)
  50.       Exit If Mid$(T$,A,1)="$"
  51.       Add XP,-16
  52.     Next 
  53.     Inc LP : Return 
  54.   End If 
  55.   If LP=1
  56.     Ink 0 : Bar 0,YP To 352*2,YP+15
  57.     Inc LP : Return 
  58.   End If 
  59.   If LP=2
  60.     Ink 0 : Bar 0,YP+288 To 352*2,YP+303
  61.     Inc LP : Return 
  62.   End If 
  63.   If LP=3
  64.     P=Asc(Mid$(T$,BP,1))
  65.     Add BP,1,1 To Len(T$)
  66.     If P=36
  67.       LP=-1
  68.     Else 
  69.       P=Instr(L$,Chr$(P))
  70.       Put Block P,XP,YP
  71.       Put Block P,XP,YP+288
  72.       Add XP,32
  73.     End If 
  74.   End If 
  75. Return